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See you next month, Bob Brenchley. Editor. 


NEWS ON 4 


PLUS D PRICE INCREASE 


Due to the large jump in chip prices over recent months MGT 
have been forced to raise the price of the PLUS D. The new 
retail price is £59.95 with the package price for PLUS D & 3.5" 
Drive going up to £139.95 plus postage and packing. 

The special offer prices to INDUG members gocs up to £54.95 
and £134.95 which both include postage and packing. 


27th 2x Mx 


;OFAIR 


Yeo its ZX Microfair time again. The date for your diary is 
Saturday 11th June and its again at the New Horticultural Hall 
in London. MGT will be there as usual and I will be on the stand 
to promote INDUG and talk to users. Doors open at 10am so don't 
Riss it. MGT plan a large display of printers to go with the 
PLUS D or DISCAPLE and have promised some extra special offers. 
The new two-way adaptor I told you about last month will be 
launched at the Microfeir. Called the TWO-FACE (where do they 
get these names from) it will allow the PLUS D to be used with 
other interfaces and will include switches ta turn off units to 
avoid conflicts. 


HACKERS MANDBOOK 


The Hackers landbook 11% is nuw available in the book shops. 
This 3rd version has had several sections rewritten by the 
author, Hugo Cornwall, and now includes a history of hacking. At 
this rate he will soon catch up with JAWS and ROCKY. 


SWANSEA AT Last 


MGT are on their way to Swansea before the end of May. Their 
new address will be MGT, Lake Side Technology Park, Phoenix Way, 
Swansea Enterprise Park, Swansea. At first Alan Miles will be 
staying in Cambridge to tidy up the loose ends and man the 
phones until Swansea is on line. 


SPECTRUM +4 RUMOURS 


A rumour has been floating around this month that Amstrad plan 
to launch a Spectrume4 this summer. Variously quoted as having 
256k or 512k of memory, 280 or 16 bit processor, anything up. to 
Aniga graphics but, of course, a standard Amstrad 3 inch 175k 
disc drive. What is certain is that the +3 has been a failure 
and Amstrad is urgently looking for a now product to rescue 
their image with Spectrum Fans. Asked if it vould affect their 
plans for the SAM computer Alan Miles said "No, in fact it makes 
us _even more determined to produce SAM, we always expected some 
competition and it will help to keep’ us on our toes. I'm 
confident Bruce will come up trumps again.” 


YOUR LETTERS 


AS (a novice PLUS D owner I was much impressed with Walter 
Kelly's Alter program. I have modified my G+DOS accordingly and 
it is a far better way of operating than the original. One 
wonders why the designers didn't do this in the first place? 


Regarding No Snap Games. I have to report that I have not been 
successful wit! Leaderboard, Scrabble de Luxe by Leisure 
Genius and The Music Box, all in 128k. 


I have been more successful with 48k games viz:- Psion 
Scrabble, Manic Miner, JSW 1 and Trivial Pursuit all of which 
Snap perfectly. JSW'2 will not Snap and Cluedo will not run at 
all. Has anybody any idea how to transfer the Trivial Pursuit 
question tapes (Uniload] onto disc? 


For anybody interested in astronomy I have transferred 
Mirrorsoft's Star Seeker to disc and this gives instant 
planetarium and Solar system information. 


Yours sincerely, Allen Vernen. 


Dear Editor, 

Having read the review in FORMAT of the Kempston Mouse I was 
impressed. I do a great deal of posters, worksheets ete. using 
Agtict IZ. (z'ma teacher and use them for schuul). 


The mouse arrived from Kempston, very fast service. The deno 
programs are great, writing the mouse into one's own programs is 
Simple. BUT.... it’will not vork vith Artist IT or The Writer. 1 
Suspect that this is because of the different port mapping 
needed for the DISCIPLE. Sadly, the joystick option on Artist If 
will not operate with the DISCIPLE either. 


This is the only problem I have found with the DISCIPLE but it 
affects what I most need it for. Two letters to Kempston on this 
matter have not been answered. Can you, or any FORMAT reader 
help? 


On a more general topic - FORMAT is a very useful magazine and 
it would be helpful if a binder could be made available to hold 
a years issues. Also an annual index would be helpful. (Yes, I 
appreciate the work involved but its just a thought). 


Yours Sincerely, Robert Lippiatt. 


Thanks for the binder idea. I will look into it in the near 
future. Meanwhile can anyone coze to Robert's aid on the ARTIST 
II? Ed. 


Letters printed on this page may sometimes be edited for either 
length or clarity. 


DLL | KEMPSTON 


AVAILABLE NOW! THE NEW KEMPSTON MOUSE 
TOGETHER WITH TOOLKIT SOFTWARE 


The KEMPSTON MOUSE consists of: 
High resolution 2 button mouse, 
mouse interface, Toolkit software and 
|, manual, 

The Toolkit software consists of fast 
machine code routines which can be 
called up trom BASIC in order to 
produce 2 WIMP (Windows, Icons, 
Menus, Pointers) system in your own 
programs. 


The Toolkit commands are: 

START This initialises one of four 
on-screen pointers, 

MOVE: Allows the pointer to move 
until a mouse button is 
pressed 

FINISH: Removes the on-screen 
pointer. 

SETUP: Sets up a window in one of 
three formats. 

HIGH: Highlights a spocified field 
within a window. 

REMOVE : Removes a specified 
window. 

A sophisticated ICON and POINTER Editor is also included, supplied with eight 

ICONS and four POINTERS builtin. 

The complete system with software is available for only £49.95) inc 


There is also a special version available for the Disciple and +0 Disc Systems, 
please specity which you require. 


The Toolkit’ software is available seperately for £9.99) inc 

FAST Mail Order Service from: 

KEMPSTON DATA LTD, 22 Linford Forum, Rockingham Drive, 
Linford Wood, Milton Keynes MK14 GLY. 

For Access/Visa sales telephone 0908 690018 


| KEMPSTON ||| 


Revisited. By: Steve Nutting. 


Last months TAPE TO DISC program seens to have caused some 
people a little trouble. It did work for me when I sent it in, 
HONEST IT DID, but I have been able to find a few problen areas. 


First, until a few weeks ago I didn't have a printer attached 
to my DISCIPLE. As there is no free space in the DISCiPLEe 
system file I use the area devoted to printer routines to store 
the extra code for TAPE TO DISC. Now I have a printer, I've 
discovered that part of this area is used by the pri 

initialize routine. So thats problem one solved, do a POKE @ 
to turn of the printer before you save the system file. 


Next I looked closely at my DATA COMPILER program, this vas 
printed OX in issue#7 but, as listed, it doesn't check for total 
rubbish like REM 6,5x,34 and under sone conditions this can 
cause the compiler to corrupt its own code. The listing given 
here will patch the “datacomp” file to add the new checks. Type 
it in and run it. A new message ‘SYNTAX ERROR' is given 
rubbich is detected. 


5 CLEAR 64511: LOAD di"dataci 
POKE 64664,113: POKE 64685,255 
PORE 04936,153: FOKE 6495/,25, 
65037,195: POXE 65036,146: FORE 65039,255 
40 RESTORE 70: LET c=0: FOR a=65393 TO 65452: READ nz POKE 2,n 
LET cecen: NEXT a 
50 IF c¢>8555 THEN PRINT "error": STOP 
60 SAVE di"éatacomp"CODE 64512,941 
70 DATA 254,58, 202,175,252,254,13,202,71 ,252,33,133,254,53 3 
158, 255, 195, 229,252,254, 58 

80 DATA 202,151, 253,254, 13,202,207, 253, 195,123,255, 167,202,123 
+255, 43,43,17,123/254,195,18 

90 DATA 254,13,18,1,83,89,78,84,65,88,32,69.82.82.79.210 


Nov if your are a DISCiPLE owner, load the TAPE TO DISC data 
from last month and add the following lines. 


182 REM 530844 
184 REM 175,33 
133, 22,1,66,3,2 


9,35,119,35,119,60,50,143,2,33,48,117,17 
1,187,251, 201 :2680 


Load the compiler routine and RUN, If there are no errors type:~ 
30583, 31: POKE 11,1: RANDOMIZE USR 30829: 
CODE 0, 6656 


blem with the PLUS D versio: 
x recompiling then try PO 
the RANDOMIZE USR 30844 and SA 


I can't find any 
still problems a 
POKE 30583,63 befoi 


but if you 
30582, 254: 


THE HELP PAGE 


Problens with your DISCIPLE, PLUS D or Spectrum. Dont worry, let the 
HELP PRGE sort then out. Notet One question per letter please 


STEP RATE 
T have a CS400 Cumana drive, which according to a data sheet I 
have fron Cumana has a stepping rate of ams. The basic systom 
program limits the stepping rate to 6ms. Is it safe to alter 

the program to allow a stepping rate of 3ms? 
Ian Wooff. Durham. 


No, I'm sorry to say you can't. Disc drive stepping rate and 
DISCIPLE / PLUS D stepping rate are in fact two different 
things. Drive stepping rate refers to the time it takes the head 
to step, forward or back, as its name suggests. However you also 
Reed a pause to allow the heads to settle before you access the 
disc, especialy when writing data. The stepping rate you enter 
into the systen file is an analgun of both. 


From experience I find that 12ns is the best for nost drives, 
with 9ms being the fastest I can recommend for a 3.5" drive. 3 
drives need around 30ms. If you keep getting sector Error 
messages then try slowing the stepping rate down, what ever you 
enter (up to the maximun of 255ms) discs are still very fast. 
COPY PROBLEMS 
T am having difficulty in using the "copy" routine on my 
DISCIPLE (Version 3b) and would appreciate some urgent advice, 
On page 26, the manual advises that it is possible to copy sii 
files from one drive to the other by using COPY DI"*" TO Dé I 
find that this is impossible as when trying to enter the 
instruction it will not execute the conmand, anda red. square 
flashes over the "O" in COPY. As 1 urgently need to take back-up 
copies of many disks which have large numbers of programs. it 
would be extremely time consuming to transfer files 
individually. 


Ray Gaunt. sheffield. 


It looks like you have an old version of the manual Ray. From 
version 3 the COPY command was dropped because, due to a bug in 
the 128k ROM, COPY is not treated properly by the Spectrun error 
handler and the computer will just hang. 


To get round this the syntax was changed to SAVE dI"*" TO a2 
in other vords just change COPY to SAVE. Also in version 3b you 
can copy the entire disc with FORMAT d2 T0 1, this formats the 
disc in drive 2 and copies the disc in drive 1, track by track, 
to the new disc. This will cope with all files, including 
SNAPSHOT files, but may take some time, 


More from the HELP PAGE next month.. 


SUM se 
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Bob Brenchley and Nev Young- 


Over the last few months several members have reported 
problems with OPENTYPE files on the DISCIPLE (GDOS 3a or 3b). I 
had found difficulties myself, especially when using twin discs. 
Following a long talk with Nev Young we set out to cure as many 
of the 'bugs' as possible. 


The first problem occurs when you open a file on drive 2, the 
@irectory entry shows sectors being used on side one of the disc 
but the data is stored on side tvo. This is due to the operating 
system using 1 or 2 as the drive number in basic but 1 or 0 for 
internal storace. If the external forn is used internally then 2 
(10 in binary) selects side 2 of drive 2. Changing the 
instructions at location 4847 (in the open a read file routine) 
to call CKDRV (the routine that converts to internal form and 
does the same action as the instructions the call replace) cured 
this one. The same patch was also added at 4933 to cope with 
write files. 


The next problem came when closing a file. The last disc in 
use was used instead of the drive number stored in the channels 
area. Here extra instructions where needed to effect the cure, 
bet the DISCIPLE GD0S lias only @ few bytes spare and they are 
dotted ail over the place. After a long search I found that 
routine in the RAM part of the system was duplicated in ROM. Tt 
forns part of the networking system and exists in ROM for use 
when it is operating as a Pupil station. The RAM version is used 
when you are the Master station. However the routine in ROM can 
still be used even when the ROM is in its high-page mode (after 
the DOS has booted in). By careful placing of the entry point it 
Was possible to insert a call (at location 5596) and free 62 
valuable bytes for patches. 


The instruction at 5177 called the Close File Sector Map 
routine in ROM. This was altered to call a patch at 5613 where 
the correct drive number and side where collected from the 
channels area before a call was made to the CFSM routine. 


Next we cone to something that isn't really a bug. When Bruce 
Gordon wrote GD0S 3 he didn’t give machine code users a Command 
Code (licok Code to ex microdrive users) to handle OPENTYPE 
files. After nany sleepless nights I realised that the routines 
to open and close a file could be called from machine code 
Provided I could do the job with just one Command Code. why one? 
well there are two codes unused in the DISCIPLE (70 and 71) but 
only one in the PLUS D (71 is used to page in the shadow system) 
and I want to ensure conpatability between the two interfaces. 


OTFOC was the anewer, Open Type File Open or Close. OTFOC uses 


code 70 (46 hex) to do both jobs. Having called HXFER to 
transfer the user file definition into the DOS, you load the A 
register with zero and do a RST 8 instruction followed by DEFB 
70. This will open a file, to close it load A with the stream 
number (4-15) and issue the restart, there is no need to use the 
HXFER command code before closing. I will be giving a full 
explanation of Command Codes, and the microdrive look Codes, 
that’ the DISCIPLE / PLUS'D use in a new seriese of articles 
planned for July/August. 


The Next bit is pure Nev Young but I will try to explain it 
for you. You will all have heard of 40 track and 80 track drives 
but what about 36 track? or even 85 track? well both exist (and 
of course Nev has to have the unusual) and the DOS will format 
them if the number of tracks is set by POKE @1 (or @2 for drive 
2) remember to add 128 if the drive is double sided. But the CAT 
command contains a routine which if POKE a1 is not 40, 80 or 168 
then 208 is assumed when calculating the free space left on the 
disc. Not to be thwarted Nev set out and wrote a nev free space 
routine and even managed to nake it two bytes shorter than the 
original. Alright so yours is a standard size drive, but you 
could format a disc to say 20 tracks if you want and with the 
new routine you will get a true picture of the space you have 
left. 


Now I hear you say ‘Is this ever going to end?'. Just bear 
with me for a few more small items. I have included that POKES 
that amend GDOS 3a to 3b, these cured problem with returning 
from Snapshots with the interrupts set the wrong way round. 
These were originally published in issue 3. Also included is the 
keyscan patch (cuts out the call to the mouse routine that can 
cause problems) and the SCREENS(1) patch that cures the all 
black printout on some screens, see the help page in issue 8 for 
@ Cull explanation... 


Finally two more improvements. If you say yes to a printer 
when you set up your systen file but then don't have a printer 
on line when you boot your system the DISCiPLE will hang up. Its 
trying to send the initialization codes but can't. A patch is 
included to get round this by testing for the printer and 
bypassing the initialize section if either no printer is found 
or the printer is off-line. This makes it operate in the same 
way as the old version 2c or the new PLUS D 


For the last modification I have to thank Walter Kelly for 
some real detective work. Anyone with a 128k or +2 will know 
that when the DISCiPLE reaches the end of a file copy it does a 
RANDOMISE USR 0. This has the annoying effect of dropping you 
into 48k node so you need to press the reset button before you 
get back to 128k mode. Walter's neat solution is the result of 
long hours searching disassemblies of the DISCiPLE system and 
the 128k ROM. It allows the DISCiPLE to test to see which mode 
the Spectrum was in before the SAVE...10... was issued, and then 
if it was 128k mode return instead to the front menu (just Like 
NEW) so you don't need to press reset. 


The last poke resets the DOS version letter to 'c'. Well thats 
it, the result of several weeks of effort, I hope you will be 
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pleased vith the improvements. I would like to thank walter 
Kelly for his help and of course Nev Young without whom this 
article sould never have got going (let alone finished). 


The next step is to type in the listing and run it. While some 
parts are really optional would reconmend that the whole 
update entered to ensure future compatability with articles 
in FORMAT. 


1 REM GDOS 3c UPGRADE 
2 REM (¢)1988 INDUG. 

3-REM All rights reserved. 

4 REM 

5 REM Converts 3a or 3b 

6 REM system file to 3c. 

7 REM Includes 3a to 3b pokes 

€ REM given in FORMAT #3 October 1987. 
9 REM 

10 RESTORE 

20 READ ADDRESS 

30 IF ADDRESS=99999 THEN GOTO 1000 

40 READ BYTE 

50 IF SYTE=-1 THEN GoTo 20 

60 POKE @ADDRESS, BYTE 


70 LET ADDRESS-ADDRESS+1 
80 GoTo 40 
80 REM 


100 REM *** PRINTER INITILIZE PATCH *** 
101 DATA 4932,205,221,40,201,58,163,2,167,32,5,219,31,203,119,1 
92,55,201,-1 

3102 DATA’ 478,205 ,224,21,216,0,-1 

109 REM 

110 REM *** INTERRUPT PATCH *#* 
111 DATA 65372, 243,0,0,-1 

112 DATA 407,251, 0,0,33, 118,27, 
119 REM 

120 REM *** oTFoc PATCH s+ 

121 DATA 65519, 167, 202,97, 18,195, 12,20 
122 DATA 665,135,2,-1 

129 REM 

130,REM *** D2 STREAM PATCH *** 

131 DATA 4183,205,132,41,0,0,0,-1 

132 DATA 4269,205,132,41,0,0,0,-1 

133 DATA 4784, 205,132, 41,201 ,205,57, 21,195, 168,41, 205, 76,21 ,205 
447,13, 201,205,121 ,21,195,201, 41,205, 57,21, 195,156, 41,205, 121,21 
1195,165,41,205,57,21,-1 

134'DATA 627,57,21,76,21 ,82,21,195,41,89,21,129,41 ,68,25,76,22, 
95,21 ,162,41,101,21,196,27,189,21,186,41,107,21,178,22,170,8,130 
121,160,21,135,2,53,5,-1 

135 DATA 4169,202,0,22,-1 

136 DATA 4968,229,42,150,2,124,181,202,61,19,195,88,41,-1 

139 REM 

140 REM *** FREE SPACE PATCH *** 

141 DATA 1616,197,203,127,40,1,135,214,4,33,0,0,6,10,22,0,95,25 
116, 253,193,0,0,-1 

149/REM 

150 REM *** SCREENS (1) PATCH *## 

151 DATA 5322,241,62,56,;-1 


un 


159 REM 
160 REM *** KEYSCAN PATCH *** 
161 DATA 99,0,0,0, 
169 REM 
170 REM *** CLOSE PATCH ++ 
171 DATA 4513,205,237,21,-1 
172 DATA 4949, 221 ,94,17,321,86,18,221,126,11,50, 206,26, 205,198, 

41,205,129, 41,201,-1 
179 REM 
180 REM *** 128k RETURN PATCH *#* 

101 DATA 1322,195,12,22,-1 
182 DATA 4980,253,203,1,102,202,79,0,205,0,91,243,1,199,0,195,7 

0,0,-1 
iad Rem 
500 REM *#* UPDATE VERSION *** 

501 DATA 5960,99,-1,99599 

1000 REM SAVE NEW 'SYSTEN TO DISC 

1010 SAVE d1"sys 3c"CODE 0, 6656 

1020 PRINT "ALL DONE" 

1030 STOP 


PLUS D owners, do not dispair, a major update to cure the 
OPENTYPE file ‘problems, and ‘a few other bits and pieces will 
appear soon. 


If you are avare of any other ‘bugs’ in the DISCiPLE (v3) or 
PLUS D why not drop me a line. Give as many details as possible 
and include a program to demonstrate the bug if possible. A 
solution is not guaranteed, but I will try. 


BACK ISSUES 


For members who have missed past issues of FORMAT (or perhaps 
worn theirs out through constant use) we run a back-issue 
service. 


The cost is 65p per copy (85p overseas) which includes 
postage. Your copies will be sent out as soon as possible but, 
in order to keep printing costs down, it may take up to 21 days 
for us to dispatch. Make cheques’ (dravn on UK bank or 
Euro-Cheques) payable to INDUG. 


Available Issues 


Issue 1 - August 1987. Issue 6 - January 1988. 
Issue 2 - September 1987. Issue 7 ~ February 1988. 
Issue 3 - October 1987. Tscue 8 - March 1998. 
Issue 4 - November 1987. Issue 9 - April 1988. 
Issue 5 - December 1987, 


Please WRITE YOUR ORDER ON A SAPERATE PIECE OFF PAPER. 
include correspondence with orders. 


Do NOT 
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MH MTCRONE Trace 


A MONTHLY FEATURE 
By: Patrick McMahon. 


In this months article I vill be looking at the various 
Gateway and Chatline facilities available on sicronet and 
Prestel. 


First the chatlines, of which there are quite a few. Most of 
the chatlines are for anyone to discuss whatever topic takes 
their fancy; provided there is someone else on there to talk to. 
Recently there was an interesting discussion on B.T. censorship 
on Micronet. It turns out that every Mailbox sent on Micronct 
goes to a central computer to be read by B.T. personnel. 
However, even if something is found to be breaking the rules 
laid down by Micronet nothing can be done as Micronet are not 
supposed to censor the electronic mail anyway. This and other 
things came out in a longer than usual exchange of views; which 
shows how concerned people vere on the subject of censorship. 


KAGS | 


Personal Selection 


paler ere reser eee 


Prestel 
Gateway 
Seqiges 


Examples of these kind of Chatlines are Turbo One and Two. 
There are quite a few regular users of Turbo One who seen to 
spend all day and every day on the chatline. One in particular 
is someone called "Knobbo". He has been on Turbo One every 
Single time I've connected, at different times I might add. 
Other regular users axe Shaggy, Stingray and Camay all of hon 
must have terrific phone bills. { have to mention that all the 
people using the chatlines are alyays helpful. This is 
especially true when you are new and don't know your way around. 
I remember the first time I tried using the chatline; Knobbo, in 
particular, was extremely helpful in showing me the ropes. 


Other types of chatlines concentrate on particular computers. 
Ono example is ‘Lip-Sine' a recent addition to existing 
chatlines. It is specifically for the Sinclair Computers, if you 
hadn't guessed fron the name, incidentally this was chosen from 
a load of suggestions sent in by people using the Spectrum 
Microbase. On the 12th of March there was a discussion on the 
hew MGT SAM computer. Chris Levis and Patman from the Spectrum 
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Microbase went to see the prototype so that they could answer 
questions of Micronetters who were curious about it. A useful 
and beneficial discussion on the new machine, which looks like 
an extrenely good buy. 


= = 
Welcome to 
HOME-.LInK! 


HOME tO OFFICE ERWDNG SERUTCE 


Now for the second part of the article, the Gateways on 
Micronet available to users. These range from ‘Teleshopping to 
Databases of information. (See Fig 1). Many of the major mail 
order catalogues have Gateweys which the user can connect to, at 
a price or sometimes absolutely free. Sone examples of these are 
Kays, Littlewoods and Homelink (see Fig 2&3) which offer all the 
products in their catalogues on Micronet pages. You then order 
what you want by filling in a response frame and paying for the 
goods by Credit Card or by neans of your existing account with 
the Company concerned. This type of thing brings armchair 
shopping, where you can sit at home and order what you want, 
whether it be a paper or the weeks shopping, ever ncarer. 


err 


= YELLOW PAGES — 


LuDatasolve 


The other type of Gateways, specialise as information 
providers, either for a particular company, eg Commercial Union 
or The Bank of Scotland (see Fig 4) or they simply provide 
information useful to everyone like the newly installed 
Electronic Yellow Pages (soo Fig 5). This offers all the nanes 
and addresses of businesses, just like its paper counterpart, 
only it is perhaps easier to use. The service only covers the 
London area at the moment but it will hopefully cover the whole 
Of the U.K. in the near future. There is also another type of 
Gateway, called Datasolve, a sort of electronic quiz(See Fig 6). 


That's all for this month, next month I shall be looking in 


more detail at Electronic mail services - Mailboxs and Telex ~ 
available on Micronet. 
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EXPPNDINE GENS 


PART 4. 
By: DAVE KENNEDY. 


This months installment of EXPANDING GENS continues the code 
for the new commands described in the last issue. 


2980 cee 
2990 JR NZ, LISTS 

3000 Dgn2 LISTS: 

3010 LIST6 LD A, (DE) inow at start of heading 

3020 cp 13 imewline at heading end 

3030 JR Z,LIST7 

3040 RST 16 jprint heading 

3050 Dec c jspacer counter 

3060 INC DE 

3070 JR LISTE 

3080 List? INC C iin case already zero 

3090, LD B,C jspaces to print before "page:" 
3100 LIsT8 LD A," 

3110 RST 16 jpad out heading with spaces 
3120 DINZ LISTS 

3130 LD B,3 jend underline mode & print "pag 
3140 9 CALL’ PRINTER-DK 

3150 wa," " 

3160 Rst 16 

3170 PUSH HL 

3180 sto LD HL, BUEFER+3 

3190, INC (iL) yonto next page number 

3200 LDC, (HL) 

3210 

3220 LD B,0 ibe" = page number, 

3230 CALL E1A1B yprint value of "be" 

3249 POP tL 

3250 LD A,13 

3260 Rst 16 

3270 LD A, 13 

3280 RST 16 32 newlines 

3290 M11 LD A, (NUM1) number of lines per page 
3300 LD B,A 

3310 LIST? PUSH’ BC jsave page line counter 

3320 M12 CALL LINEPRINT-DK ;llist one line 

3330, PoP nc ecover page line counter 
3340 RET NZ bandon printing if a key pressed 
3350 M13 CALL HLEND "hl"-(txtend) 

3360 RET NC £ at end of textfile 

3370 DINZ LISTS jelse repeat until one page printed 
3330 14 LD A, (NUM2) jnumber of nevlines between pages 
3390 1D BA 


3400 LISTIO LD A,13 
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3410 
3420, 
3430 
34¢0 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560, 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3680 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3730 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3390 
3900 
3910 
3920 
3930 
3940 
3950, 
3960 
3970 
3980 


MIS 


LINEPR 


LINEt 


LINE 


LINE 


LINES 


LINE7 


PRINTE 


RST 16 
bgnz LIsT10 
PUSH HE 

XOR A 

CALL £1601 
LD 4,209 

Rst 16 

LD A,218 

‘CALL ERASE3~DK 
CALL E0D6E 
ED 2,3 

CALL £1601 
POP HL 

OR LIST4 


LD ¢, (#L) 
INC HL 

LD 8, (BL) 
Inc iL 

PUSH HL 
CALL £2928 
GALE £2032 
POP HL 

LD BC, £0300 
LD 2, ESC 
RST 16 

LD A,TAB 
st 16 

LD A, (HL) 
INC HL 

cP 13 

JR 2,LINE7 
cP TAB 

OR NZ, LINES 
BIT 0,8 

JR NZ, LINES 
rae" 
cP 58 

JR NZ,LINES 
LD ¢,£20 
DEC AL 
DINZ LINEV 


OR NC, LINEZ 
c 


JR LINE? 
RST 16 
PUSH HL 
RST 8 
DEFB £20 
POP aL, 
RET 


PUSH HL 


save textfile position 


igelect lower sereen 


;"beep!" & await keypress 
jels-lower screen only 


eselect printer 
ecover textfile position 
continue to print next page 


ztext line number 5 


jsave text posn. 
put "be" on calculator stack 
Print number off calc. stack 


ybe3 for label, mnemonic & comment 
rftelds 


igoto to next tab position 


ptest for Line end 


test = chr$ 9 which asm. puts in 
when space or right curser input 
jif b = 2 then in mnenomic field 


39 convert chr$ 9 i: 
"2" = comments 


0 a space 


if in comment field ensure "c"s32 


= 0 then at comment field 


js0 bypass "j" character 


yeheck for upper-case character 


unchange unless in comment field 
when "c"u32 converts to lower case 
newline 

Save text position 

/drive keyboard test hook-code 
izero flag set if no keypress 
jrecover text position 

74 return for flag test 


piprint from message list 


16 


3990 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160, 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4200 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4409 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 


Space has run out on me again 
the end is in sight. Next month will see that 


pleased 
code, 


m6 
PRINT! 


PRINT2 
PRINTS 


MOVER 


me 


mig 


M20 
M21 


M22 
M23 


MOVERT 


to hear 
last section of source 


LD HL, PNTDATA-DK 


BIT 7, (HL) 
INC HL 

OR Z,PRINTY 
DINZ' PRINTI 
LD A,BSC 
RST 16 

LD A, (HL) 
AND 127 
RST 16 

BIT 7, (HL) 
INC HL 

OR Z, PRINTS 
PoP it 

RET 


CALL PNDADR 
JR C,ERRT 
LD_(HUMT) DE 
PUSH DE 

ADD HL,DE 

DEC HL, 

LO (HUM2) , HE 
PUSH HL 

LO ML, BUFFER+3 
CALL BINARY 
1D BH 

LD CL 

Inc BC 

CALL PNDNUM 


LD (BUFFER+3) , HE 


PoP BC 
POP DE 
AND A 

SBC HL,DE 
JR_C,MOVERT 
ADD HL, DE 
AND A 

SBC HL, BC 
SR C,ERRT 
LO H,B 

Lo b,c 
AND i 
SBC_KL,DE 
LD BH 

LD C,L 
INc BC 
PUSH DE 
LD DE, 6910 
AND A 

SBC HL,DE 
POP DE, 

JR C,CONT 


ybit 7 set at each message end 


if b = 0 then at required message 
Iprint escape character for each 
ode in case less than chr$ 31 


jeonvert message end-narker 
jtest for message end 


;& continue if not at message ond 
jrecover text position 


jdesaddr of aumt hl=num2-numt addc 
£ num? < numt 


istore start line address 
jstart 


plecation of move to line ti 
onvert ascii to value in 


jtransfer block after move to line 

jline no. "be" to address in "hl" 
istore move to address 

rend line 

jstart line 


jmove line - start line 
jend test if move < start 
jreform move 


ymove - end 
jerror if start < move < end 
jena 


pend - start 


jdifference 
jstart 
jusing screen as temp. store 


jstart 
jblock of lines > screen store 
month but will be 


this you 


80 see you next time. 
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FORKAT SOFTWARE 


FORMATS Software Service provides DISCIPLE and PLUS D owners 
with a growing range of software specially designed for their 
systems. 


The software is supplied on tape, for easy transfer to any 
fornat/size of disc, thus keeping costs as low as possible. 


Tape No Title Program Description 


T001 LcoPy Routines to replace the GDOS printer dump 

routines in your system file. Enables 
pson conpatible printers without Esc * 
to be used with both SCREENS 1 @ 2 and 
SNAPSHOT prints. 


r002 MULTI-POKE Program to display and edit 48K SNAPSHOT 
files, Full facilities for entering 
published POKSs i.e, Infinite Lives etc. 
Makes use of printer if attached, 


7003 


A graphic investigator. Look inside 
commercial programs, find the Sprites and 
pictures. Works in 48K mode but will 
handle many 126K programs. 


r004 1.3.0. The highly successful 'Incresental Backup 
Utility’, written by Nev Young. As 
featured in Issues 5,6,7 & 8 of FORMAT. 


T005 TAPE-SNAP Transfer 48k Snapshots to tape with this 
easy to use program. Transferred Snaps 
will reload and run without the dise 
system present. 


7006 ART ‘STUDIO A conversion program for the OCP ART 
STUDIO. Configure art Studio in the 
normal way then run this program to 
convert te disc operation. 


Each tape, costs £3.95 including postage or £4.95 for overseas 
nenbers. Instructions are supplied where needed and all tapes 
are professionally recorded. 


Send your order (on a separate piece of paper please), clearly 
stating the Tape Number; Title; Quantity required and your 
membership number, to:- INDUG (FSS), 34 Bourton Road, 
Gloucester, GL4 OLE, England. Payment in STERLING by Cheque 
(payable fo INDUG’and drawn on a UK bank), Postal Orders, Euro 
Cheques or Cash accepted. Please allow 28 days for delivery. 


DO NOT ENCLOSE CORRESPONDENCE WITH ORDERS. 
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FASY-READ 


Most users will__know that things like colour control 
characters can be inserted into the lines of a 48k Basic 
program. This not only gives colourful listing, very useful in 
its own right, but also saves all those long’ winded 

INK 7 BRIGHT 1 controls in PRINT statements, > ere y 


By: Jon Nixon, 


The problem comes when you want to send a printed listing to 
magazines like FORMAT. The LUIST command ignores all inbedded 
codes and, of course, no printer would be able to print them 
anyway. My solution is ‘EASY READ' a small program to give 
listings with control codes that can be understood. As you will 
see from the listing itself when the program comes across an 
enbedded control (or selected other characters) it converts 
them. The output consists of a '{', the coamand and then a ‘}! 
to finish off. The commands work like this 


£ = Extended Mode 
S = Caps shift 

@_ = Graphic Mode 
SS = Symbol shift 


All followed by a key to be pressed. 


So (5 4) means enter Extended Mode then press Caps shift and 4, 
this gives the control code for green ink. (¢ A) tells you to 
enter graphic mode then press A, that is the first of the UDGs. 
(INV VID) and (TRUE VID) are’also given and I have also added 
conversion or €,# and the copyright sign as not all printers can 
cope with them, 


To use the program you need to create an OPENTYPE file by, 
OPENN4;d1"AFILE" OUT, then LIST #4 to get your listing into tho 
file, Now close the file by CLOSE#*4 and load EASY READ. The 
program will copy the selected file to a new file converting as 
it goes, a copy of the text is also printed to the screen. When 
finished you can print the file at any time by MOVE d1"CONV 
PILE" TO #3. 


10 REM (INV VID)'EASY READ' LISTER v2.7(TRUE VID} 

20 REM [INV VID}(C)1988 INDUG. (TRUE VID} 

30 REM (INV VID) By Jon Nixon. (TRUE VID) 

40 REM 

50 REM *# get file names. ** 

60 BORDER 1: PAPER 1: INK 7: CLS 

70 INPUT "{E 3)INPUT Filename?(E 1) ";1S'Drive No? "sid 

80 PRINT "{E 3)INPUT FILE = (E 1)"7IS;TAB 23;"(E 3)Drive = (E 
1310 
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90 INPUT "{E 2)Name of OUTPUT File?{E 1) ";0S'"Drive No? ";0D 
100 PRINT "{E 3}OUTPUT FILE = (E 1}";0$;TAB 23;"{E 3}Drive = {E 


ID; ISIN 
D;0$ OUT 

135 REM ** test for end of file ** 

140 LET OFFSET=PEEK (23574+4*2)+256*PEEK (235754422) 

150 LET CHANADR=PEEK (23631 )+256*PEEX (23632) +OFFSET-1 

160 LET CL=PEEK (CHANADR+31)+256*PEEK (CHANADR+32)+65536*PEEK ( 
CHANADR+18) 

170 IF CL=0 THEN GOTO 460: REM ** if end of file goto finish ** 
180 REM read byte from input file 

190 LET I$=INKEY§(SS 3}4: REM ** read character from file ** 
200 LET BYTE=CODE I$ 

210 IF BYTE)=144 AND BYTEC«161 THEN LET I$="(¢ "sCHRS (BYTE-79) 
+N)": REM UDG'Ss 

215 REN ** now test for each special character type in turn, ** 
220 IP BYTE)=128 AND BYTEC=143 THEN GOSUB 350: REM a BLOCK Srap 
hic character 

230 IF BYTE<16 THEN LET BYTE=CODE INKEYS(SS 3}4: LET IS="{ES "+ 
STR$ BYTE+")": REM = INK control 

240 IF BYTE#i7 THEN LET BYTE=CODE INKEYS{SS 3)4: LET I$="(E "+s 
‘TRS BYTE+")"; REM = PAPER control 

250 IF BYTE-18 THEN LET BYTE-CODE INKEY${SS 3)4: LET I$="(ES “+ 
STRS (8+BYTE)+")": REM FLASH control 

260 IF BYTE=19 THEN LET BYTE=CODE INKEYS(SS 314: LET Ts="{E "ss 
TRS (8+BYTE)+")": REM BRIGHT control 

270 If BYTE«20 THEN LET BYTE=CODE INKEYS{SS 3)4: LET I$="( TRUE 
VID)"; IF BYTE=1 

THEN LED I$="(INV VID)": REM inverse control 

2AD TP RYTE.127 THEN LET e-"{pce Pp)"; ROM COPYRIGHT 

290 IF BYTE=96 THEN LET I$="(SS X}": REM POUND SIGN 

300 IF BYTEs35 THEN LET I$e"(SS 3)": REM HASH SIGN 

310: 

320 PRINT 1$;: REM to screen 

330 PRINT {S$ 3)5;I$7: REM to file 

340 GOTO 160: REM loop for next character 

350 REM {INV VID)BLOCK GRAPHICS(TRUE VID} 

360 IF BYTE=126 THEN LET I$="(G 6)" 

370 IF BYTE=143 THEN LET Is="{Gs 8)" 

380 IF BYTE>=129 AND BYTEC=135 THEN LET I$="(G "sCHR$ (BYTE-80) 
a 

390 IF BYTE«142 THEN LET I$="{Gs 1)" 

400 IF BYTE<141 THEN LET Is-"{cs 2)" 

410 IF BYTE=140 THEN LET Is="(Gs 3)" 

420 IF BYTE=139 THEN LET Is="{(GS4) 

430 IF BYTE=138 THEN LET Is="(Gs 5)" 

440 IF BYTE®137 THEN 

450 IF BYTE=136 THEN LET I$="{Gs 7)” 
451 RETURN 

460 CLOSE ##*4: CLOSE 4s5 

470 PRINT "(E 2)ALL DONE(E 1)" 


The listing could be expanded or modified to suit individual 
needs and is not (except for the file access) peculiar to the 
DISCIPLE / PLUS D, I wrote this several years ago to work on 
microdrives. 
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ULOPrY 


By: Bob Brenchley. 


A few weeks ago I had a small routine sont in by Mr A.D.Webb 
of London SW2. The routine vas an EXECUTE FILE for the DISCiPLE 
(version 3a and above) which gave an ASCII screen copy for 
either a daisy wheel printer or a dot matrix printer that 
doesn't have Bit Image Graphics. The routine worked very well 
and I put it aside to use ona ‘Hints & Tips’ page (On for’ more 
hints and tips so I can make it a monthly feature). 


However on closer examination I felt that a little rewrite 
would make the routine relocatable so it would work on the 
PLUS D as well, this article is the result. The routine is well 
annotated so it should give you some ideas for other Execute 
files. 


Execute files are small machine code routines that load and 
run in the disc buffer in the interfaces RAM. They have to be 
assembled to run at location 7126 on the BISC{PLE or 15318 on 
the PLUS D, All calls to the main ROM are made with an RST 16 
call followed by DEFW nnan where nnnn is the address of the 
routine you are calling, 


Enter the source listing into your favourite assembler (T use 
a modified OCP Editor/Assenbler) and assemble to an address in 
the Spectrums RAM (lets say 50000). Then save the routine by 
SAVE dl"DCOPY"X,50000 if you don't use an assembler you can type 
in the basic loader give at the end. 


To use the routine just insert the command LOAD di"DCOPY"x it 
can be used in place of and COPY or SAVE SCREENS conmand in a 
program. Only ASCII characters are copied, others print as 
spaces. 


90010 
00020 ; DCOPY - By Bob Brenchley. From an idea by A.D.Webb. 
00040 

90050 ; (c)1966 inDUG. 


00060 


00000 START 10 A,3 First load 3 into the a register and 
00090 RsT 16 icall the Spectrums ROM to open the 
00100 DEFW 5633 jprinter channel. 
00110 
00120 LD BC,O —j8=COLWHN, CeLINE both zero to start. 
00130 Loop PUSH BC jSave current position. 
00140 
00159 RST 16 sNow call main ROM to do a SCREENS 
00160, DEFW 9528 command. 
o0i80 as? 16 all the main ROM to feten the 
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00130 DEFW 11249 jstring paraneters from the Stack. 
00210 

00220 PRSTRLD A,B iNext test the length (in BC) off 
00230 oR oc ithe string produced by SCREENS. 
00280 

00250 LD &,32 — ;Load a space into the A register. 
00260 

00270 SR 2,P2  jIf the string length was zero then 
00280 ijump to P2 and print the space as 
00280 ithe character 1s not ASCII. 

00290 

00300 LD A,(DE) ;Load the character to be printed. 
00310 

90320 2 RS? 16 yall the main ROM to print the 
00330 DEFW 16 jcharacter or the space. 

00340 

00360 POP BC iRecover the coords. 

00380 LD 4,31 jLoad A with 31 and test to see if 
00390 cB ‘ts the ond of a line. 

00400 JR  2,NXTLN ;If so jump to NXTLN. 

00410 Inc B #If not point to next character 
90420 9R LOOP jand loop through the routine. 
00430 

00440 NxTEN LD A,13 oad a with a Carriage Return 
00450 RsT 16 jand call the Spectrums ROM to print 
00460 DEFW 16 es 

00470 

00480 LD A,21  ;Load A with 21 and test to see if 
00430 ce oc ithats the last line. 

00500 oR 

00510 Inc ¢ € net, point to the next line 
00520 xoR nd recot the column count. 

00530 LD OB, 0 zero. 

00540 oR iow go and print another line. 
00550 

00560 LASTLN LD A,13  jPrint an extra Carriage Return 
00570 RST 16 ust to make sure the printers 
00580 DEFW 16 pbuffer is cleared. 

00590 

00600 LD A,2 ;Finally reset the current 

00610 RST 16 iehannel back to 2 (the main screen). 
00620 DEFW 5633; 

00630 

00640 RET nd then return to Basic. 

00650 


00660 LEN © EQU. $-START 


BASIC LOADER 


10 FOR 
20 READ N 

30 POKE I,N 

40 NEXT I 

50 DATA 62,3,215,1,22,1,0,0,197, 215,56, 37,215,241 , 43,120,177 ,62 
432,40, 1,26, 215,16,0,193,62,31,184,40,3, 4, 24,230, 62,13,215, 1640, 
62,21, 185,40,5,12,175,71,24,215,62,13,215,16,0)62,2,215,1,22, 201 
60 SAVE di"DcoPY"x, 50000 


0000 To 50059 
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In the months since IBU was first written two problems have 
reared their ugly heads. Neither problem is serious and they can 
both be resolved with a few line changes to the basic section oF 
the program. 


The first problem only affects those of us who use OPSNTYPE 
files. It would appear that the header byte 210 that IBU uses to 
mark a file as backed up is also used as a size extension byte 
for these files. This has the effect, for small files, of 
increasing their size by 25665536 bytes (making it a VERY BYG 
file. The fix is quite simple. On lines 870, 910, 1150 and 1155 
replace the number 210 with 209. This will also, unfortunatly, 
mark all files as not backed up so the next run of TBU will be a 
good time for a cup of tea. 


The second probles actually lies within the DISCiPLE/PLUS D 
ROM, but only affecte those who have two, double sided, disc 
drives. The ROM program only stores one current track ragister, 
so when you switch discs the ROM vill think that the head of the 
new drive {s on the track where the old drive head was. It will 
therefore re-position the heads. it then realises its aistake 
and moves them back tu the cuisect place. This 1s an annoyance 
but does no real harm unless you are near the last track of the 
disc, as would happen if you are using IU to copy a file that 
starts on side 1 and finishes on side 2. As IBU copies about 6 
tracks at a time (12 for single density on the DISCiPLE) the 
heads on the source disc can quite easily be 70 tracks away from 
the heads on the destination disc. As a result the ROM will try 
to move the destination disc heads 70 tracks out, but as they 
are already sonewhere near track 75 this only resulte in a 
format data lost nessage as the heads are moved off the end of 
the disc. 


The cure is either to twist Bruce Gordon's arm to re-issue the 
ROM with a fix or add the following 4 lines to BU. 


1165 LET dpos = IN 91 


1275 LET spos = IN 91 
4215 IF sourcedisc <> destdisc THEN LET spos=IN 91 


4255 IF sourcedise <> destdisc THEN LET dpos=IN 91 


our 91,dpos 
OUT 91,spos 


This will keep a note of the tracks, and stop the seeks that 
cause the probles. 


If you have a PLUS D then replace each 91 in the above lines 
with the number 235. 


i hope these enhancements will prove useful. 
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